home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / comms / icom0425.arj / WCDESC.SCR < prev   
Text File  |  1994-04-25  |  2KB  |  62 lines
  1. ;------------------------------------------------------------------------------
  2. ; WCDESC.SCR for Intellicomm v2 or above.
  3. ;
  4. ; This script is only needed for AUTOMATED uploads on Wildcat v3.x BBS's.
  5. ; It is plugged into Wildcat BIFs on the "File" screen:
  6. ;
  7. ; ║ Descrip @SCRIPT  @WCDESC.SCR        Enter Descrip. . Description? «       ║
  8. ;
  9. ; What this means is that this script (WCDESC.SCR) is called to enter file
  10. ; description on Wildcat auto-uploads.  The script is needed due to the way
  11. ; Wildcat operates.  Most BBS's that allow "extended" description lines simply
  12. ; allow you to enter the lines without asking unnecessary questions.  Wildcat
  13. ; allows entry of one line only, then it ASKS whether you want to enter any
  14. ; more description lines.  That this, this script is needed to handle the
  15. ; "Enter extended description?" question.  By the time this script is called,
  16. ; Intellicomm has already found the initial "Enter Descrip." prompt above,
  17. ; so we send the first line immediately.
  18. ;
  19. ; Note also that the description has also be pre-formatted by Intellicomm
  20. ; to the Max Chars Per Line item set in the BIF.  So no CFORMATDESC is needed
  21. ; here.
  22. ;------------------------------------------------------------------------------
  23.  
  24. variable linenum 1
  25. variable linedat
  26.  
  27. CGETDESC linedat linenum          ;get line 1
  28. if $ERRORLEVEL <> 0 assign linedat "No description was available for this file."
  29. send linedat                      ;send it
  30.  
  31. waitfor "detailed description" 60 TIMEOUT
  32. delay 10
  33.  
  34. inc linenum
  35. cgetdesc linedat linenum         ;check for line 2, answer Yes/No
  36. if $ERRORLEVEL <> 0              ;no more lines, quit
  37.  sendnc "N"
  38.  return
  39. endif
  40.  
  41. sendnc "Y"
  42. delay 10
  43.  
  44. while 1                           ;endless loop (until BREAK)
  45.  send linedat
  46.  if linenum >= *[F]flmx break     ;Max Lines (defined on BIF "File" screen)
  47.  inc linenum                      ;INCrement (linenum = linenum + 1)
  48.  CGETDESC linedat linenum         ;get the next line
  49.  if $ERRORLEVEL <> 0 break        ;no more description lines?
  50.  delay 10                         ;pause for a second (let BBS catch up)
  51. endwhile
  52.  
  53. send ""                           ;terminate the comment (blank line)
  54. waitfor "Edit Message" 60 TIMEOUT
  55. delay 10
  56. sendnc "S"
  57. return
  58.  
  59. TIMEOUT:
  60.  send ""
  61.  return
  62.